COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.macro ref(name,body)⊂
C00006 ENDMK
C⊗;
.macro ref(name,body)⊂
.send bible ⊂}<body≤name≥{⊃
.⊃

.MACRO BIB ⊂
.IF SSNAME ≠ SECNAME THEN FOO←TRUE ELSE FOO←FALSE;
.	SSNAME ← SECNAME ← "BIBLIOGRPAHY";
.	SSNUMBER ← null;
.	SKIP TO COLUMN 1; NEXT SECTION!;
.		BEGIN
.		fill
.NAM←↑"BIBLIOGRAPHY";
.NAM1←"Bibliography";
.               GROUP skip 7
%a{NAM1}%*
.		SKIP 12;
.            	SEND CONTENTS ⊂ SKIP 2;
%2{NAM}→{PAGE!}%*{SKIP;⊃
.NAM←↑"APPENDICES";
.            	SEND CONTENTS ⊂ SKIP 2;
%2{NAM}%*{SKIP;⊃
.		END	⊃
.MACRO pro ⊂
.IF SSNAME ≠ SECNAME THEN FOO←TRUE ELSE FOO←FALSE;
.	SSNAME ← SECNAME ← "PROLOG";
.	SSNUMBER ← null;
.	SKIP TO COLUMN 1; NEXT SECTION!;
.		BEGIN
.		fill
.NAM←↑"PROLOG";
.NAM1←"Prolog";
.       GROUP skip 7
%a{NAM1}%*
.		SKIP 12;
.            	SEND CONTENTS ⊂ SKIP 2;
%2{NAM}→{PAGE!}%1{SKIP;⊃
.		END	⊃

.MACRO indexr ⊂
.IF SSNAME ≠ SECNAME THEN FOO←TRUE ELSE FOO←FALSE;
.	SSNAME ← SECNAME ← "INDEX";
.	SSNUMBER ← null;
.	SKIP TO COLUMN 1; NEXT SECTION!;
.		BEGIN
.		fill
.NAM←↑"INDEX";
.NAM1←"Index";
.       GROUP skip 7
%a{NAM1}%*
.		SKIP 12;
.		END	⊃

.MACRO pref ⊂
.IF SSNAME ≠ SECNAME THEN FOO←TRUE ELSE FOO←FALSE;
.	SSNAME ← SECNAME ← "Preface";
.	SSNUMBER ← null;
.	SKIP TO COLUMN 1; NEXT SECTION!;
.		BEGIN
.		GROUP skip 7
.		ONCE INDENT 0
.NAM←↑"PREFACE";
.NAM1←"Preface";
%a{NAM1}%*
.		SKIP 12;
.		END	⊃

.AT "⊗↑" name "↑"⊂
.START	SEND bible ⊂}<{PAGE}≤name≥{⊃; "name"; END ⊃

.MACRO biblio ⊂
.<<begin "bib">>
.	PORTION bible
.bib
.	SELECT 1;
.FP
The basic form of an entry consists of three items:
.BEGIN INDENT 5,5;
%21.%1 A  short name which is how the document is referenced in the text.
.PT2 
%22.%1 The full bibliographical reference.
.PT2
%23.%1 A sequence of pages in the text which refer to this document. If the document is not
referenced the statement %2[#norefs#]%1 appears instead; these documents, while not
referenced, are relevant to the material covered in the text.
.END
.INDENT 0,15;
.fill 
.	SECNAME ← "BIBLIOGRAPHY";
.at "$"wds "$" ⊂}%3{}wds%*{⊃
.AT NULL ⊂IF FILLING THEN BREAK ELSE SKIP 1⊃
.	ww ← wp ← NULL ;
.use ← NULL;brak ← NULL;
.	AT "<" x "≤" y "≥" ⊂
.		IF "y" ≠ ww THEN START use;use← "%2#norefs%1";brak; brak←"%2#]%*";PT18 }y\x#%2[%*{ END
.		ELSE IF "x" ≠ wp THEN start  use ←NULL;}%2#x%*{ end ;
.		wp ← "x" ; ww ← "y" ; ⊃
.TABS 15;TURN ON "\","$";
.	RECEIVE "≤≥"
.<<	END "bib">>
.⊃